PC World Interactive 7/PC World Interactive 7.iso/bb2000/files/BlueGame.dxr/00178_bubbleScript.ls

Text File | 1998-02-20 | 804 b | 38 lines

property spritenum, myList
global BUBBLESPRITES

on new me
  return me
end

on appear me, xPos, yPos, membername, aList
  set spritenum to findSpace(me)
  set myList to aList
  puppetSprite(spritenum, 1)
  set the foreColor of sprite spritenum to 255
  set the ink of sprite spritenum to 8
  set the locH of sprite spritenum to xPos
  set the locV of sprite spritenum to yPos
  set the member of sprite spritenum to member membername
  append(myList, me)
end

on findSpace me
  repeat with x = BUBBLESPRITES to BUBBLESPRITES + 4
    if the memberNum of sprite x = 0 then
      return x
      exit repeat
    end if
  end repeat
  return 0
end

on destroy me
  set the memberNum of sprite spritenum to 0
  set pos to getPos(myList, me)
  if pos > 0 then
    deleteAt(myList, pos)
  end if
  return me
end